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SOURCES 


NAME TCL_NET_MAN 
STITLE (°TCL — NETWORK MANAGEMENT ROUTINES”) 


Sinclude (:fl:cpyrt.dca) 

7 

? /* Intel Corporation Proprietary Information. 

; This listing is supplied under the terms of a 

7 license agrement with Intel Corporaton and 

; may not be copied nor disclosed except in 

? accordance with the terms of that agreement. */ 
, 


CGROUP GROUP CODE 
DGROUP GROUP DATA 


DATA SEGMENT PUBLIC “DATA’ 
EXTRN LCIOVECTOR: WORD 
EXTRN TCLVERSION: WORD-MAXCDBS:B8YTE-NUMCOBS:SB8YTE-DEFRETRANTOOW:DWORD 
EXTRN DEFABORTTOHI:WORD,/-DEFPERSIST:sWORD-TOTPKTSREJ:SWORD 
EXTRN BAOCHKSUM: WORD,-TOTPKTSRETRAN: WORD-CURMAXCDBS thyte 
EXTRN LOCNET:WORD,-LOCHOST:WORD-ONBOMAXCOBS: byte, SIZECDS8 sword 


CoBPTR DD ? ;RETURN FOR CDB POINTER 
DATA ENDS 
CODE SEGMENT PUBLIC ‘CODE’ 


ASSUME CS:CGROUP,DS:DGROUP 
EXTRN SETUPCDS:NEAR 


DGRP DW DGROUP 
tre The Network Management routines are driven off a table with 
, the following structure: 
7 
; Byte 0: 
; 
Si. 38 Set if the object is in the COB 
Bit 4: Set if the object is clearable 
sit 33 Set if the object is setable. 


Bits O-2: The length in bytes of the object 


Bytes 172: The base address in OGROUP of a regular object, 
or the offset in the COS of a COB object. 


In addition, the following constant defines the limits 
of the data structure: 


LASTLOBJECT: The number of the last object in the table, 
starting from zero. 
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TCL = MNETWOSK MAMAGEMENT ROLTINES 

SOURCE 

CTL RECORD C€DB:1=0-/CLR:1=0-/SET:1=0-/LEN: 3=2 
O8J STRUC 

CT ier LD Ds ? 

LOC DW ? 

OBJ ENOS 

LOCPORT EQU 6 

REMNET EQU 8 

REMHOST = QU 10 

REMPORT EQU 16 

REMCID =QU 22 

RETRANTO EQU 24 

ABORTTOHI EQU 20 

PERSIST EQU 18 

SEGMENTSSENT EQU 72 

PKTSREJ EQU ré 

OKTSRETRAN EQU 78 

; _ . 

+ Object No 0 is a Special Object - the cidlist - its length is 
> twice nmaxcdhs in bytes. the length field is 0 but will be taken 
, cars of by service routing. 

a 


TABLE 


OBJ 


OBJ 


O3J 


<CTL<s-71>/0FFSET OGROUP:LCIOVECTOR> ; 


<CTL<r772>,/0F FSET DGROUP:TCLVERSION> ; 
<CTL<+771>,/0FFSET OGROUPSMAXCODBS> © , 
<CTL<-7/1>,/0FFSET OGROUP:CURMAXCDBS> ; 


<CTL<s771>/0F FSET DGROUPIONBSOMAXCD3S> ; 
<CTL<+772>/0FFSET DGROUP:SIZECDB> ; 
<CTL<+771>/0F FSET DGROUP:NUMCDBS> ; 
<CTL<+7174>/0FFSET DGROUP:DEFRETRANTODW>? 
<CTL<r7172>/0F FSET DGROUP:DEFABORTTOHI> | 
<CTL<,717/2>/0FFSET DGROUP:DEFPERSIST> 3 
<CTL<r17/2>/0F FSET DGROUPITOTPKTSREJ> 
<CTL<r1772>/0FFSET DGROUP: BADCHKSUM> ; 
SCTL<+17/2>/0F FSET ODGROUP: TOTPKTSRETRAND? 
<CTL<s772>/0FFSET OGROUP:LOCNET> ; 
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0040 
0049 
0050 
0050 
0051 
OOS 
0053 
0054 
C055 


0056 
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' TCLREAD: 


rtrnt: 


~ NETWORK MANAGEMENT ROUTINES 


<CTL<1747174>/RETRANTO> 
<CTL<147172>,A30RTTOHI> 
<CTL<177172>,PERSIST> 
<CTL<17772>/SEGMENTSSENT> 
<CTL<17-1772>/PKTSREJ> 
<CTL<17-1772>/PKTSRETRAN> 
<CTL<14772>/,LOCPORT> 
<CTL<17772>,/REMNET> 
<CTL<14776>/REMHOST> 
<CTL<17772>/REMPORT> 


<CTL<17772>/REMCIO> 


EQU 24 
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TCLSREAD (OBJECT, MODIFIER, VALUESP) - READ NETWORK MANAGEMENT OBJECT. 


PARAMETERS: 


OBJECT = 
MODIFIER 


RETURNS: 


THE OBJECT NUMBER CWORD)., 
= WHICH COPY THE OF THE OBJECT (WORD, 


INGCRED). 
VALUESP = POINTER TO A BUFFER TO RETURN THE VALUE. IN CWORD). 


THE BUFFER POINTED TO 8Y VALUESP CONTAINS THE CURRENT VALUE OF 
THE OBJECT. 


AX 
AX 


PUSE IC 
CALL 
PUSH 
PUSH 
PQP 


POP 
REP 


MOV 


THE LENGTH IN BYTES OF THE OBJEC 


Q IF ILLEGAL PARAMETER, 


TCLREAD 
SERVIC 
DS 


zS 
O05 


AX, BX 


ry TCLread, TCLreade and TCLset jump here to return 
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LOC O6J LINE SOURCE 

0058 2&8E1E0000 R 135 MOV DS,DGRP 

0050 C20800 136 RET 8 
Dt 
136 
139 
140 
141 raw; TCLSREADC COBJECT, MODIFIER, VALUESP) = READ ANO CLEAR 
142 ; NETWORK MANAGEMENT OS8JECT. 
143 ; 
144 7 PARAMETERS: 
145 , OBJECT = THE OBJECT NUMBER CWORD). 
146 7 MODIFIER = WHICH COPY THE OF THE OBJECT (WORD, IGNORED). 
147 ; VALUESP = POINTER TO A BUFFER TO RETURN THE VALUE IN CWORD). 
1428 7 
149 , RETURNS: 
130 , THE BUFFER POINTED TO BY VALUESP CONTAINS THE CURRENT VALUE OF 
151 ; THE OBJECT, 
152 ; _ THE O3JECT HAS BEEN CLEARED TO O IF A CLEARABLE OBJECT. 
15.3 7 AX = THE LENGTH IN BYTES OF THE OBJECT. 
154 , AX = 0 IF ILLEGAL PARAMETER. 
155 
156 ; 
i ibe eg PUBLIC TCLREADC 

0060 158 TOLRERDC® 

0060 E82400 159 CALL SERVIC 

0063 1€ 160 PUSH DS 

0064 06 161 PUSH ES 

0065 1F | 162 POP DS 

0066 O07 163 POP ES 

0067 F6C210 164 TEST DL,MASK CLR 7TEST IF OBJECT IS CLEARABLE 

OO6A 7409 145 JZ ROC2 7IF NOT CLEARABLE 

OO6C A4 166 RDC1: MOVS8 

006d Cé644FFO0 167 MOV BYTE PTR DS:fSI-13,0 

0071 E2F9 168 LOOP RODC1 

OO73 EBET 169 JMP short rtrn 

0075 F3 17-G RDC2s REP MOVS3 

0076 A4 

OO77 EBOD 171 jmp short rtrn 

172 
173 
174 
175 rte TCLSSET COBJECT, MODIFIER, VALUESP) - SET NETWORK MANAGEMENT OBJECT. 
176 7 . 
177 ? PARAMETERS: 
178 ; OBJECT = THE OBJECT NUMBER CWORD). 
179 7 MODIFIER = WHICH COPY THE OF THE OBJECT CWORD, IGNORED). 
180 ? VALUESP = POINTER TO BUFFER CONTAINING NEW VALUE FOR OBJECT CWORD). 
161 ? 
VEZ 7 RETURNS: 
183 ; AX = THE LENGTH IN BYTES OF THE OBJECT. 
184 ? AX = Q IF ILLEGAL PARAWNETER. 
185 
186 
. 187 PUBLIC TCLSET 
0079 £80800 188 TOLSETS CALL SERVIC 


EU GG/ 232772 S25 MeCrO aS eal ER TCL - NETWOPK MANAGEMENT ROUTINES 04/23/8: PAGE 


Loc O8J LING SOURCE 


OO7C F6C208 189 test OL, mask set > Test if Object is Settable 
OO?7F 74CF 190 32 rtrni1 , If not read current value and return 
0081 &7F7 191 XCHG SI,02r 
0083 F3 192 REP MOVS3 
0084 A4 
0085 EBCF 193 jup short rtrn 
194 
195 
196 
197 a? SERVIC - DATA INTERFACE SERVICE ROUTINE 
19& ; 
199 ? RETURNS: 
200 ? (3X) = (CX) = OBJECT LENGTH. 
201 ; CES:SI) = POINTER TO OBJECT. 
2025 , (DS:0I) = POINTER TO VALUE BUFFER. 
203 , COL) = CTL BYTE FOR OBJECT. 
204 
205 
sala 206 PARMS STRUC 
0000 207 BPSAVE DW ? 
0002 208 MYRET DW ? 7MY RETURN ADDRESS 
0004 299 HISRET OW ? ,CALLER’S RETURN ADDRESS 
0006 210 VALUEP 99 ? 7VALUE POINTER 
OO0A 211 MODIF DW ? 7MOOIFIER 
000C 212 OBJECT DW 2 7OBJECT NUMBER 
=== 213 PARMS ENDS 
214 
© wes 
O08? 55 216 SERVIC: PUSH BP 7SET UP BP ACCORDING TO PLM CONVENTIONS 
0088 8&3EC 217 i MOV BP,SP 
. 218 
OO8A 8B85c0C 219 MOV ~—6BX, CBP] .OBJECT 
0080 83F818 220 CMP BX,LAST_OBJECT 
0090 7F6C 221 JG SERS IF ILLEGAL OBJECT NUMBER 
. 222 
0092 83C3 223 MOV AX, 3X MULTIPLY OBJECT NUMBER BY 3 
0094 0308 22 ADD BX, 3X 7to give index in table. 
0096 O3D8 2e5 AOD 3X7 AX 
0098 228A970200 R 226 MOV DL,TASLECBXI.CTL_FLD READ OSJECT LENGTH 
rams 
0090 F6C220 228 TEST DL-MASK CD8 >CHECK IF COB ITEM 
OOAQ 7434 229 JZ SER1 7IF NOT 
230 
OOA2 &B460A 231 MOV AX,CBPJ.MODIF 7GET MODIFIER 
OOA5 OBCO 232 or axs ax recheck if modifier = 0 
OOA7 7455 2355 72 ser3 70 is illegal - jump 
OOAS BFOOOG E 254 MOV DI-OFFSET DGROUP:LCIDVECTOR 
OOAC 1é 265 PUSH OS 
 QOAD 07 236 POP ES 
OOAE 33C9 237 XOR CX,CX 
0080 8A0ECO00 238 MOV CL,MAXCDBS 
0034 FC 239 CLD 
0085 Fe - 240 REPNZ SCASW ,SEARCH CID VECTOR 
OOB6 AF / 


DOB? 7545 j 241 JNZ SERS 7IF NOT IN TABLE 
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LOC Oa LINE “SOURCE 
242 
0089 33¢c0 243 XOR AX, AX 
0088 AOgcOOO z 244 MOV D AL,MAXCOBS ,COMPUTE INDEX = MAXCODBS - COUNT - 1 
OOBE F9 245 STC 
QO8F 18C1 246 $33 SX,7CX 
O00C1 53 eae PUSH BX ,SAVE OFFSET INTO OBJECT TABLE 
00C2 50 243 PUSH AX 7Param 1 : index in CDB table. 
Q90C3 880009 R = 249 MOV AX,OFFSET OGROUP:CDBPTR 
00cé 50 250 PUSH AX ,7Param 2 : address of CD8 pointer 
OOc?7 £80000 E 251 CALL SETUPCDSB ,GET POINTER TO CDB 
OOCA 58 252 POP BX RESTORE OFFSET INTO OBJECT TABLE 
00ca C4360000 R 253 LES SI,COBPTR 
DOCF 2603870300 R 254 ADD ST-/TABLECBX].LOC -ADD OBJECT BASE ADDRESS 
0004 £815 255 JMe short SER2 
256 | 
0006 = 2o7 SER1: PUSH OS 7FIND BASE OF NON“CDB OBJECT 
OOD? 07 258 POP ES 
0008 2£88370300 R 259 MOV ST,/TABLECBX]J.LOC FREAD OBJECT BASE ADDRESS 
| 260 
0099 OBD3 261 | or lbx bx 7 If BX =O the object is CIDVECTOR 
OODF 750A 262 jnz sere , Pick Len from Table 
; 263 
COE 33C9 264 xor cx ex 
OOE3 SADEDOON E 265 mov cl, maxcdhs , size of CIOVECTOR in words 
QOE7 DOE 265 snl cl, , multiply by 2 to get length in bytes 
Or : 
OOQE9 E€BOB 268 jmp short sersd 
269 
OOEB 33C9 270 SER2: xor CX7oX. | 
OOED 2E8AEFO2Z00 R 271 MOV CLye,tablelbxi.ctl_fld 7BX still has offset into object table 
OOF2 81£10700 272 AND CX,MASK LEN PEXTRACT LENGTH FIELD OF "CTL" 
273 
QOFéEé &88D9 274 ser5: MOV »3X-CX WANT TO RETURN LENGTH IN 8X ALSO 
OOFS C57E06 275 LDS DI,£BP].VALUEP LOAD VALUE POINTER INTO REGS 
QQFS FC 276 CLD *STRINGS INCREASING IN MEMORY ADDRESS 
OGFC. 30 ere POP BP 
OOFD C3 27§ RET 
27S | 
OOFE 2E8E12£0000 R 280 SERS: MOV DS,/OGRP 
OT035 S3C0 261 XOR AX, AX ,ILLEGAL ITEM, RETURN O TO ORIGINAL CALLER 
282 
9105 50 283 serds POP BP sRESTORE BP 
0106 538 e884 POP 3X ,CLEAR LOCAL RETURN ADDRESS 
0107 ¢c208006 285 RET 8 ,RETURN TO CALLER’S CALLER 
286 | 
SaaS 237 COdS ENDS 
& & END 


ASSEMBLY COMPLETE, NO ERRORS FOUND 


